home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / N-O / New Farm Program.cpt / New Farm Program / card_3641.txt < prev    next >
Text File  |  1988-02-06  |  2KB  |  90 lines
  1. -- card: 3641 from stack: in
  2. -- bmap block id: 5861
  3. -- flags: 0000
  4. -- background id: 2765
  5. -- name: 2nd
  6. ----- HyperTalk script -----
  7. on opencard
  8.   put line 1 of field "c1" of card "1st" into card field "a2"
  9.   set numberformat to "00.00"
  10.   put line 1 of card field "a2" * line 1 of card field "g1" of card "1st" into it
  11.   put it * line 1 of card field "def" of card "1st" into x
  12.   put x * card field "h1" of card "1st" into y
  13.   put y / "100" into it
  14.   put it into line 1 of card field "c2"
  15.   get line 1 of card field "c2" * .40
  16.   put it into line 1 of card field "b2"
  17. end opencard
  18.  
  19.  
  20. -- part 36 (field)
  21. -- low flags: 01
  22. -- high flags: 4000
  23. -- rect: left=310 top=137 right=154 bottom=377
  24. -- title width / last selected line: 0
  25. -- icon id / first selected line: 0 / 0
  26. -- text alignment: 0
  27. -- font id: 3
  28. -- text size: 12
  29. -- style flags: 0
  30. -- line height: 16
  31. -- part name: c2
  32.  
  33.  
  34. -- part 38 (field)
  35. -- low flags: 01
  36. -- high flags: 4000
  37. -- rect: left=310 top=85 right=101 bottom=377
  38. -- title width / last selected line: 0
  39. -- icon id / first selected line: 0 / 0
  40. -- text alignment: 0
  41. -- font id: 3
  42. -- text size: 12
  43. -- style flags: 0
  44. -- line height: 16
  45. -- part name: a2
  46.  
  47.  
  48. -- part 39 (field)
  49. -- low flags: 01
  50. -- high flags: 4000
  51. -- rect: left=310 top=195 right=211 bottom=378
  52. -- title width / last selected line: 0
  53. -- icon id / first selected line: 0 / 0
  54. -- text alignment: 0
  55. -- font id: 3
  56. -- text size: 12
  57. -- style flags: 0
  58. -- line height: 16
  59. -- part name: b2
  60.  
  61.  
  62. -- part 41 (field)
  63. -- low flags: 00
  64. -- high flags: 0000
  65. -- rect: left=294 top=38 right=56 bottom=353
  66. -- title width / last selected line: 0
  67. -- icon id / first selected line: 0 / 0
  68. -- text alignment: 0
  69. -- font id: 0
  70. -- text size: 12
  71. -- style flags: 0
  72. -- line height: 16
  73. -- part name: name
  74.  
  75.  
  76. -- part contents for card part 36
  77. ----- text -----
  78. 4771.20
  79.  
  80. -- part contents for card part 38
  81. ----- text -----
  82. 64.00
  83.  
  84. -- part contents for card part 39
  85. ----- text -----
  86. 1908.48
  87.  
  88. -- part contents for card part 41
  89. ----- text -----
  90. Milo